home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / let num recognit (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  571 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  31. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  32. 410 [153]"   * (null)LEASE READ THESE INSTRUCTIONS          TO THE PUPIL.STOP"
  33. 415 [153]"  RIGHT$N THIS GAME, A LETTER WILL APPEAR      ON THE SCREEN."
  34. 420 [153]"  (null)OUR TASK IS TO FIND THAT LETTER ON
  35. 425 PRINT"  THE KEYBOARD AND PRESS IT.
  36. 430 [153]"  (null)NCE YOU START THE GAME, YOU MUST       STAY WITH IT TO THE END.
  37. 435 PRINT"  [193]T THE END OF THE GAME, YOUR SCORE      WILL BE SHOWN.
  38. 440 [141]820
  39. 445 [153]"LOAD   LENHOICE:
  40. 450 PRINT"  [208]RESS  [212] [146] FOR TEACHER INFORMATION
  41. 455 [153]"  (null)RESS  (null) WAIT TO PLAY":[141]791:[141]760
  42. 460 [161]R$:[139]R$[179][177]"T"[175]R$[179][177]"P"[167]460
  43. 465 [139]R$[178]"P"[167][153]"LOAD":[141]791:[141]760:[141]760:[142]
  44. 500 [153]"LOAD *RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)CLOSEASC(null)(null)CLOSE(null)(null)RIGHT$(null)CHR$CLOSE(null)LEFT$RIGHT$(null) (null)(null)(null)CHR$(null)ATN(null)
  45. 505 PRINT"[212]HIS PROGRAM TESTS STUDENTS"
  46. 510 PRINT" IN THEIR ABILITY TO RECOGNIZE THE"
  47. 515 PRINT" LETTERS OF THE ALPHABET AND THE"
  48. 520 PRINT" NUMERALS 1-9.  [212]HE PROGRAM WILL"
  49. 525 PRINT" DISPLAY EACH OF THE CHARACTERS, ONE"
  50. 530 PRINT" AT A TIME. [212]HE STUDENT MUST PRESS"
  51. 535 PRINT" THE CORRESPONDING LETTER ON"
  52. 540 PRINT" THE KEYBOARD. [195]ORRECT AND INCORRECT"
  53. 545 PRINT" RESPONSES WILL BE TALLIED AND"
  54. 550 PRINT" DISPLAYED AT THE END OF THE RUN."
  55. 555 GOSUB820:RETURN
  56. 700 REM <YES>
  57. 705 S=54272:FORE=STOS+28:POKEE,0:NEXT
  58. 710 POKE54296,15:POKE54277,42:POKE54278,250
  59. 715 POKE54276,23:POKE54273,23:POKE54272,191
  60. 720 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  61. 725 POKE54296,0:RETURN
  62. 730 REM <NO>
  63. 735 S=54272:FORE=STOS+28:POKEE,0:NEXT
  64. 740 POKE54296,15:POKE54277,18:POKE54278,242
  65. 745 POKE54276,33:POKE54273,4:POKE54272,48
  66. 750 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  67. 755 POKE54296,0:RETURN
  68. 760 REM <BLIP>
  69. 765 S=54272:FORE=STOS+28:POKEE,0:NEXT
  70. 770 POKE54296,15:POKE54277,42:POKE54278,250
  71. 775 POKE54276,23:POKE54273,23:POKE54272,191
  72. 780 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  73. 785 POKE54296,0:RETURN
  74. 790 FORTM=1TO500:NEXT:RETURN
  75. 791 FORTM=1TO1000:NEXT:RETURN
  76. 792 FORTM=1TO2000:NEXT:RETURN
  77. 793 FORTM=1TO3000:NEXT:RETURN
  78. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,1:POKEUX,1:POKE646,5
  79. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM ":GOSUB790
  80. 802 PRINT"           FOR C64 COMPUTER":GOSUB790
  81. 803 PRINT"             GRADES K - 1":GOSUB790
  82. 804 PRINT"                                        [146]";
  83. 805 PRINT"                                        [146]";
  84. 806 PRINT"       LETTER/NUMBER RECOGNITION        [146]";
  85. 807 PRINT"                                        [146]";
  86. 808 PRINT"                                        [146]":GOSUB791:GOSUB760
  87. 809 PRINT"          INSTRUCTIONS?  Y/N
  88. 810 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]810
  89. 811 [139]UI$[178]"Y"[167][141]400
  90. 812 [153]"LOAD  AND AWAY WE GO.......":[141]791:[141]700:[141]790
  91. 813 [137]1000
  92. 820 [141]791:[141]760
  93. 823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT"
  94. 825 [161]UI$:[139]UI$[179][177]" "[167]825
  95. 830 [142]
  96. 835 [151]UN,0:[153][200](UD$,24);" PRESS SPACE BAR TO CONTINUE WAIT"
  97. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  98. 845 [142]
  99. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  100. 855 [153]" --------------------------------------"
  101. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURNWAIT"
  102. 865 UH[178]0:[153]"":[142]
  103. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  104. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  105. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  106. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  107. 905 UD$[178]"":UP$[178]"                                      "
  108. 907 [134] QU$(250),AN$(250),AR(35),A2(35),C1$(7)
  109. 909 [142]
  110. 910 [141]900:[153]"LOAD":[153]"CLOSE"
  111. 920 [137] 800
  112. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  113. 1010 [137] 1585
  114. 1100 [143]
  115. 1540 [143]  SELECTIONS - TIMING - ITEM SELECTION
  116. 1585 [153]"LOAD":[151]UT,UU%:UT$[178]" LETTER/NUMBER RECOGNITION":UH[178]1:UP[178]0:UG$[178]"PAGE"
  117. 1590 [153]""[163]12);"***************"
  118. 1595 CD[178]0: FA[178]0: SA[178]0: B[178]0
  119. 1600 [153][163]12);"*  SELECTION  *"
  120. 1610 [153][163]12);"***************":[153]:[153]
  121. 1620 [153][163]12);"1.  LETTERS A-I"
  122. 1625 [153][163]12);"2.  LETTERS J-R"
  123. 1630 [153][163]12);"3.  LETTERS S-Z"
  124. 1635 [153][163]12);"4.  LETTERS A-M"
  125. 1640 [153][163]12);"5.  LETTERS N-Z"
  126. 1645 [153][163]12);"6.  LETTERS A-Z"
  127. 1650 [153][163]12);"7.  NUMERALS 1-9"
  128. 1655 [153][163]12);"8.  A-Z AND 1-9":[141]790:[141]760
  129. 1670 [153][163]12);"ENTER YOUR CHOICE: ";
  130. 1680 UL[178]1:US$[178]"12345678":[141]35:SE[178][197](UR$)
  131. 1710 [139]A$[178]"Y"[167]1585
  132. 1720 [141] 2920
  133. 1730 A1$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789"
  134. 1740 [153]"LOAD  WHAT SPEED OF RESPONSE WOULD YOU        LIKE FOR THIS GAME?"
  135. 1750 [153]"  THE EASIEST SPEED WILL ALLOW YOU
  136. 1760 PRINT"  10 SECONDS IN WHICH TO RESPOND.
  137. 1770 [153]"  THE MOST DIFFICULT ALLOWS ONLY"
  138. 1780 [153]"  3 SECONDS TO RESPOND.":[141]792:[153]"  SELECTIONWAIT"
  139. 1800 [153][163]2)"1. (10 SEC. EASY)":[153][163]2)"2. (6 SEC.)
  140. 1810 PRINTTAB(2)"3. (3 SEC. DIFFICULT)":GOSUB790:GOSUB760
  141. 1820 PRINT"PLEASE ENTER SELECTION: ";
  142. 1830 UL=1:US$="123":GOSUB35:RS=VAL(UR$)
  143. 1840 IF RS=1 THEN T1=600
  144. 1850 IF RS=2 THEN T1=360
  145. 1860 IF RS=3 THEN T1=180
  146. 1870 GOSUB791:PRINT"[147] AND AWAY WE GO....":GOSUB792:GOSUB760:GOSUB760
  147. 1920 REM-------------------------------
  148. 1930 REM SET LIMITS FOR ARRAY AR(*)
  149. 1960 FORI=LOTOUP:AR(I)=I:NEXT
  150. 1980 REM-------------------------------
  151. 1990 REM  CHECK FOR END OF SESSION
  152. 2000 REM
  153. 2010 IF UP-LO+1<=0THEN2480
  154. 2020 ER=0
  155. 2030 IFCD<10THEN2090
  156. 2040 IFB/CD>0.5THEN ER=1:GOTO 2480
  157. 2050 REM--------------------------------
  158. 2060 REM  RANDOM SELECTION OF ITEM FOR
  159. 2070 REM DISPLAY AND DISPLAY ON SCREEN
  160. 2090 X=INT((UP-LO+1)*RND(0)+LO)
  161. 2100 DI=AR(X):AR(X)=AR(UP):UP=UP-1
  162. 2110 WV=1:PRINT"[147]"
  163. 2120 GOSUB3150
  164. 2130 TA=17
  165. 2140 GETX1$:IFX1$<>""THEN2140
  166. 2150 ON D2 GOSUB 3240,3260,3280,3300
  167. 2160 REM-----------------------------
  168. 2170 REM   SET TIMER AND LOOK FOR RESPONSE
  169. 2190 T=TI+T1
  170. 2200 GETX1$
  171. 2210 IFX1$=""ANDTI<TTHEN2200
  172. 2220 REM------------------------------
  173. 2230 REM CORRECT HAPPY FACE & RECORD
  174. 2250 REM INCORRECT SAD FACE & CHECK
  175. 2260 REM IF 1RST OR 2ND ATTEMPT
  176. 2270 REM IF 1RST DISPLAY AGAIN: 2ND -RECORD
  177. 2290 HA=2:IFX1$=MID$(A1$,DI,1)THEN HA=1
  178. 2300 TA=12: GOSUB 4510
  179. 2310 IF WV=2 THEN 2360
  180. 2320 IFHA=2THENWV=2:PRINT"[147]":GOTO2130
  181. 2330 REM-------------------------------
  182. 2340 REM  RECORD RESULTS FOR SUMMARY DISPLAY
  183. 2360 CD=CD+1
  184. 2370 IF WV=2 THEN 2390
  185. 2380 FA=FA+1:GOTO2010
  186. 2390 IF HA=2 THEN 2410
  187. 2400 SA=SA+1:GOTO2010
  188. 2410 B=B+1:A2(B)=DI:GOTO 2010
  189. 2420 REM-------------------------------
  190. 2430 REM   END OF SESSION DISPLAY
  191. 2440 REM DISPLAY STUDENT SCORES
  192. 2480 GOSUB5430
  193. 2490 PRINT"[147]"
  194. 2500 IF ER=0 THEN2530
  195. 2510 PRINT"AT LEAST 50% OF CHARACTERS UNRECOGNIZED"
  196. 2520 GOSUB4860:PRINT:GOTO2540
  197. 2530 REM
  198. 2640 GOSUB2920
  199. 2645 PRINT" CHARACTER SET TESTED ";MID$(A1$,LO,UP-LO+1)
  200. 2650 PRINT" NUMBER OF CHARACTERS DISPLAYED... =";CD
  201. 2655 PRINT"[153] NUMBER OF CORRECT FIRST RESPONSES =";FA
  202. 2660 PRINT"[158] CORRECT RESPONSE SECOND ATTEMPT.. =";SA
  203. 2665 PRINT"[150] MISSED COMPLETELY................ =";CD-(FA+SA):GOSUB835
  204. 2670 PRINT"[147][155]  PRESS  P [146] TO PLAY AGAIN
  205. 2675 [153]"  PRESS  M WAIT TO RETURN TO MENU
  206. 2680 GETR$:IFR$<>"P"ANDR$<>"M"THEN2680
  207. 2685 IFR$="P"THEN RESTORE:GOTO1585
  208. 2690 PRINT"[147]  RETURNING TO THE MENU
  209. 2692 [147]"MENU",8                       2696 [128]
  210. 2700 [140]:[137]800
  211. 2920 [143]-----------------------------
  212. 2930 [143]  SUBROUTINE - BASED ON TEACHER
  213. 2940 [143] SELECTION OF SET GOTO APPROPRIATE
  214. 2950 [143] SUBROUTINE
  215. 2960 [143]------------------------------
  216. 2970 [145]SE[141]3030,3040,3050,3060,3070,3080,3090,3100
  217. 2980 [142]
  218. 2990 [143]------------------------------
  219. 3000 [143] SUBROUTINES SET UPPER AND LOWER         LIMITS FOR RANDOM SELECTION
  220. 3030 LO[178]1:UP[178]9:[142]
  221. 3040 LO[178]10:UP[178]18:[142]
  222. 3050 LO[178]19:UP[178]26:[142]
  223. 3060 LO[178]1:UP[178]13:[142]
  224. 3070 LO[178]14:UP[178]26:[142]
  225. 3080 LO[178]1:UP[178]26:[142]
  226. 3090 LO[178]27:UP[178]35:[142]
  227. 3100 LO[178]1:UP[178]35:[142]
  228. 3110 [143]------------------------------
  229. 3120 [143]  SUBROUTINE - BASED ON POSITION OF ITEM  IN A1$ SET VALUE FOR D2
  230. 3150 [139] DI[179]9[167] D2[178]1
  231. 3160 [139] DI[177]8 [175] DI[179]17 [167] D2[178]2
  232. 3170 [139] DI[177]16 [175] DI[179]25 [167] D2[178]3
  233. 3180 [139] DI[177]24 [167] D2[178]4
  234. 3190 [142]
  235. 3200 [143]-------------------------------
  236. 3210 [143]  SUBROUNTINES - GOSUB FOR                DISPLAY OF ITEM SELECTED
  237. 3240 [145]DI[141]3380,3420,3460,3500,3540,3580,3610,3650
  238. 3250 [142]
  239. 3260 [145]DI[171]8[141]3690,3720,3750,3790,3820,3870,3910,3950
  240. 3270 [142]
  241. 3280 [145]DI[171]16[141]3980,4010,4040,4070,4100,4120,4150,4170
  242. 3290 [142]
  243. 3300 [145]DI[171]24[141]4200,4230,4260,4270,4280,4290,4300,4310,4320,4330,4340,3910
  244. 3310 [142]
  245. 3320 [143]-------------------------------
  246. 3330 [143]       SUBROUTINES 1500-4900
  247. 3340 [143]  EACH OF THESE SUBROUTINES WILL
  248. 3350 [143] DISPLAY ONE OF THE LETTERS OR
  249. 3360 [143] NUMERALS FROM A1$(A,B,C...7,8,9)
  250. 3380 [153][163]TA)"  (null)(null)
  251. 3381 PRINTTAB(TA)" [206][160] [205]
  252. 3382 [153][163]TA)"THEN    FN
  253. 3383 PRINTTAB(TA)"[167][163][163][163][163][165]
  254. 3384 [153][163]TA)"THEN    FN
  255. 3385 PRINTTAB(TA)"[167]    [165]
  256. 3410 [142]
  257. 3420 [153][163]TA)"(null)TAB(TAB((null)
  258. 3421 PRINTTAB(TA)"[165]   [165]
  259. 3422 [153][163]TA)"(null)TOTO(null)
  260. 3423 PRINTTAB(TA)"[165]  [205]
  261. 3424 [153][163]TA)"FN  THEN
  262. 3425 PRINTTAB(TA)"[204][164][164][206]
  263. 3450 [142]
  264. 3460 [153][163]TA)"(null)TAB(TAB((null)
  265. 3461 PRINTTAB(TA)"[165]
  266. 3462 [153][163]TA)"FN
  267. 3463 PRINTTAB(TA)"[165]
  268. 3464 [153][163]TA)"FN
  269. 3465 PRINTTAB(TA)"[205][164][164][206]
  270. 3490 [142]
  271. 3500 [153][163]TA)"(null)TAB(TAB((null)
  272. 3501 PRINTTAB(TA)"[165]  [167]
  273. 3502 [153][163]TA)"FN  THEN
  274. 3503 PRINTTAB(TA)"[165]  [167]
  275. 3504 [153][163]TA)"FN  THEN
  276. 3505 PRINTTAB(TA)"[204][164][164][206]
  277. 3530 [142]
  278. 3540 :
  279. 3550 [153][163]TA)"(null)TAB(TAB(TAB(
  280. 3551 PRINTTAB(TA)"[165]
  281. 3552 [153][163]TA)"FN  CLOSE
  282. 3553 PRINTTAB(TA)"[207][163][163][160]
  283. 3554 [153][163]TA)"FN
  284. 3555 PRINTTAB(TA)"[204][164][164][164]
  285. 3570 [142]
  286. 3580 [153][163]TA)"(null)TAB(TAB(TAB(
  287. 3581 PRINTTAB(TA)"[165]
  288. 3582 [153][163]TA)"FN  CLOSE
  289. 3583 PRINTTAB(TA)"[207][163][163][160]
  290. 3584 [153][163]TA)"FN
  291. 3585 PRINTTAB(TA)"[165]  [160]
  292. 3600 :[142]
  293. 3610 [153][163]TA)"(null)TAB(TAB((null)
  294. 3611 PRINTTAB(TA)"[165]
  295. 3612 [153][163]TA)"FN
  296. 3613 PRINTTAB(TA)"[165] [163][208]
  297. 3614 [153][163]TA)"FN  THEN
  298. 3615 PRINTTAB(TA)"[205][164][164][206]
  299. 3640 [142]
  300. 3650 [153][163]TA)"FN   FN
  301. 3651 PRINTTAB(TA)"[165]   [165]
  302. 3652 [153][163]TA)"FN   FN
  303. 3653 PRINTTAB(TA)"[207][163][163][163][165]
  304. 3654 [153][163]TA)"FN   FN
  305. 3655 PRINTTAB(TA)"[165]   [165]
  306. 3680 [142]
  307. 3690 [153][163]TA)" TAB((null)TAB(TAB(
  308. 3691 PRINTTAB(TA)"  [167]
  309. 3692 [153][163]TA)"  THEN
  310. 3693 PRINTTAB(TA)"  [167]
  311. 3694 [153][163]TA)"  THEN
  312. 3695 PRINTTAB(TA)" [164][186][164][164][160]
  313. 3710 [142]
  314. 3720 [153][163]TA)"  TAB((null)TAB(TAB(
  315. 3721 PRINTTAB(TA)"   [167]
  316. 3722 [153][163]TA)"   THENCLOSECLOSE
  317. 3723 PRINTTAB(TA)"   [167] [160][160]
  318. 3724 [153][163]TA)"   THEN CLOSE
  319. 3725 PRINTTAB(TA)"   [167]
  320. 3726 [153][163]TA)"(null)TOTO(null) CLOSE
  321. 3740 RETURN
  322. 3750 PRINTTAB(TA)"[167] [160][206]
  323. 3751 [153][163]TA)"THEN (null)CLOSE
  324. 3753 PRINTTAB(TA)"[167][206][160][160]
  325. 3754 [153][163]TA)"THEN(null)CLOSECLOSE
  326. 3755 PRINTTAB(TA)"[167] [205][160]
  327. 3756 [153][163]TA)"THENCLOSE (null) CLOSE
  328. 3780 RETURN
  329. 3790 PRINTTAB(TA)"[165] [160]
  330. 3792 [153][163]TA)"FN
  331. 3793 PRINTTAB(TA)"[165][160][160][160]
  332. 3794 [153][163]TA)"FN CLOSECLOSE
  333. 3795 PRINTTAB(TA)"[165]  [160]
  334. 3796 [153][163]TA)"(null)TOTOTO CLOSE
  335. 3810 RETURN
  336. 3820 PRINTTAB(TA)"[167][205][160]   [206][165]
  337. 3822 [153][163]TA)"THEN (null)  (null) FN
  338. 3823 PRINTTAB(TA)"[167][160][160][205][206]  [165]
  339. 3824 [153][163]TA)"THEN CLOSECLOSE   FN
  340. 3825 PRINTTAB(TA)"[167]  [160]   [165]
  341. 3826 [153][163]TA)"THEN    CLOSE FN
  342. 3840 RETURN
  343. 3850 :
  344. 3870 :
  345. 3880 PRINTTAB(TA)"[167][205][160]    [165]
  346. 3882 [153][163]TA)"THEN (null)    FN
  347. 3883 PRINTTAB(TA)"[167][160][160][205][160]  [165]
  348. 3884 [153][163]TA)"THEN CLOSECLOSE(null)  FN
  349. 3885 PRINTTAB(TA)"[167]  [160] [205] [165]
  350. 3886 [153][163]TA)"THEN    CLOSE(null)FN
  351. 3900 :RETURN
  352. 3910 PRINTTAB(TA)" [206][163][163][163][205]
  353. 3912 [153][163]TA)"THEN     FN
  354. 3913 PRINTTAB(TA)"[167][160][160][160]  [165]
  355. 3914 [153][163]TA)"THEN CLOSECLOSE  FN
  356. 3915 PRINTTAB(TA)"[167] [160]   [165]
  357. 3916 [153][163]TA)" (null)TOTOTO(null)
  358. 3940 RETURN
  359. 3950 PRINTTAB(TA)"[167][163][163][163][163][205]
  360. 3952 [153][163]TA)"THEN     FN
  361. 3953 PRINTTAB(TA)"[167][160][160][160] [206]
  362. 3954 [153][163]TA)"THENTAB(TAB(TAB(TAB(
  363. 3955 PRINTTAB(TA)"[167] [160]   [160]
  364. 3956 [153][163]TA)"THEN
  365. 3960 RETURN
  366. 3980 PRINTTAB(TA)" [206][163][163][163][205]
  367. 3982 [153][163]TA)"THEN     FN
  368. 3983 PRINTTAB(TA)"[167][160][160][160]  [165]
  369. 3984 [153][163]TA)"THEN     FN
  370. 3985 PRINTTAB(TA)"[167] [160] [164] [165]
  371. 3986 [153][163]TA)" (null)TOTOTO(null)
  372. 4000 :RETURN
  373. 4010 PRINTTAB(TA)"[207][163][163][205]
  374. 4012 [153][163]TA)"FN  THEN
  375. 4013 PRINTTAB(TA)"[204][164][164][206] [160][160]
  376. 4014 [153][163]TA)"FN(null)
  377. 4015 PRINTTAB(TA)"[165] [205] [160]
  378. 4016 [153][163]TA)"FNCLOSE (null)
  379. 4030 RETURN
  380. 4040 PRINTTAB(TA)"[206][163][163][205]
  381. 4042 [153][163]TA)"FN
  382. 4043 PRINTTAB(TA)"[205]    [160][160]
  383. 4044 [153][163]TA)" TAB(TAB((null)
  384. 4045 PRINTTAB(TA)"   [167][160]
  385. 4046 [153][163]TA)"(null)TOTO(null)
  386. 4060 RETURN
  387. 4070 PRINTTAB(TA)"[163][163][163][207][163][163]
  388. 4072 [153][163]TA)" CLOSE FN
  389. 4073 PRINTTAB(TA)" [160] [165]  [160][160]
  390. 4074 [153][163]TA)" CLOSE FN
  391. 4075 PRINTTAB(TA)" [160] [165][160][160]
  392. 4076 [153][163]TA)" CLOSE FN
  393. 4090 RETURN
  394. 4100 PRINTTAB(TA)"[165][160][160][160][160][165]
  395. 4102 [153][163]TA)"FNCLOSE CLOSE FN
  396. 4103 PRINTTAB(TA)"[165][160][160]  [165][160][160]
  397. 4104 [153][163]TA)"FNCLOSECLOSE  FN
  398. 4105 PRINTTAB(TA)"[165][160] [160][160][165]
  399. 4106 [153][163]TA)"(null)TOTOTO(null)
  400. 4110 RETURN
  401. 4120 PRINTTAB(TA)"[165][160][160][160][165]      [160]
  402. 4122 [153][163]TA)"FN  CLOSEFN     CLOSE
  403. 4123 PRINTTAB(TA)"[165][160]  [165] [160][160] [160]
  404. 4124 [153][163]TA)"FNCLOSECLOSE FN  CLOSECLOSE
  405. 4125 PRINTTAB(TA)"[205][160] [206]   [160]
  406. 4126 [153][163]TA)"CLOSE(null)(null)CLOSE   CLOSE
  407. 4140 RETURN
  408. 4150 PRINTTAB(TA)"[167][160][160]  [165][160]
  409. 4152 [153][163]TA)"THEN    FN    CLOSE
  410. 4153 PRINTTAB(TA)"[167][160]   [165][160][160] [160]
  411. 4154 [153][163]TA)"THENCLOSECLOSE  FN CLOSECLOSE
  412. 4155 PRINTTAB(TA)"[167][160][206][205] [165] [160]
  413. 4156 [153][163]TA)"THEN(null)CLOSECLOSE(null)FN CLOSE
  414. 4160 RETURN
  415. 4170 PRINTTAB(TA)"[205][160][160]  [206][160]
  416. 4172 [153][163]TA)" (null)  (null)CLOSE    CLOSE
  417. 4173 PRINTTAB(TA)"[160][160][205][206] [160][160][160] [160]
  418. 4174 [153][163]TA)"CLOSECLOSE(null)(null) CLOSE CLOSECLOSE
  419. 4175 PRINTTAB(TA)"[160][206][160] [205][160] [160]
  420. 4176 [153][163]TA)"(null) CLOSECLOSE (null) CLOSE
  421. 4190 RETURN
  422. 4200 PRINTTAB(TA)"   [160]
  423. 4202 [153][163]TA)" (null) CLOSE(null)
  424. 4203 PRINTTAB(TA)"[160][160][205][206] [160][160][160] [160]
  425. 4204 [153][163]TA)"   FN
  426. 4205 PRINTTAB(TA)"[160][160][160][165][160]
  427. 4206 [153][163]TA)"   FNCLOSE
  428. 4210 PRINTTAB(TA)"   [165]
  429. 4220 [142]
  430. 4230 [153][163]TA)" TOTOTOTOTOCLOSECLOSE CLOSE
  431. 4231 PRINTTAB(TA)"     [206]
  432. 4232 [153][163]TA)"   CLOSE(null)CLOSE    CLOSE
  433. 4233 PRINTTAB(TA)"[160][160][160][206][160][160][160][160] [160]
  434. 4234 [153][163]TA)"CLOSECLOSE(null)  CLOSE CLOSECLOSE
  435. 4235 PRINTTAB(TA)"[160][206]   [160] [160]
  436. 4236 [153][163]TA)" TAB(TAB(TAB(TAB(TAB( CLOSE
  437. 4240 :
  438. 4250 RETURN
  439. 4260 PRINTTAB(TA)" [206][165]
  440. 4261 [153][163]TA)"CLOSE FN
  441. 4262 PRINTTAB(TA)"  [165]
  442. 4263 [153][163]TA)"  FN
  443. 4264 PRINTTAB(TA)"  [165]
  444. 4265 [153][163]TA)" TO(null)
  445. 4266 RETURN
  446. 4270 PRINTTAB(TA)"[206][163][163][205]
  447. 4272 [153][163]TA)"CLOSE  (null)
  448. 4273 PRINTTAB(TA)"  [206]
  449. 4274 [153][163]TA)" (null)CLOSE
  450. 4275 PRINTTAB(TA)"[206]
  451. 4276 [153][163]TA)"TAB(TAB(TAB(TAB( CLOSE
  452. 4277 RETURN
  453. 4280 PRINTTAB(TA)"[163][163][163][205]
  454. 4282 [153][163]TA)"CLOSE  THEN
  455. 4283 PRINTTAB(TA)"   [206]
  456. 4284 [153][163]TA)" TAB(TAB((null)CLOSE
  457. 4285 PRINTTAB(TA)"[160][160]  [165]
  458. 4286 [153][163]TA)"TOTOTO(null)
  459. 4287 RETURN
  460. 4290 PRINTTAB(TA)"  [206][165]
  461. 4292 [153][163]TA)"CLOSE(null) FN
  462. 4293 PRINTTAB(TA)"[206] [160][165]
  463. 4294 [153][163]TA)"TAB(TAB(TAB((null)
  464. 4295 PRINTTAB(TA)"[160][160] [165][160]
  465. 4296 [153][163]TA)"   FNCLOSE
  466. 4297 RETURN
  467. 4300 PRINTTAB(TA)"[207][163][163][163]
  468. 4302 [153][163]TA)"FN  CLOSE
  469. 4303 PRINTTAB(TA)"[165] [160]
  470. 4304 [153][163]TA)"TAB(TAB(TAB((null)
  471. 4305 PRINTTAB(TA)"[160][160] [167][160]
  472. 4306 [153][163]TA)"TOTOTO(null)CLOSE
  473. 4307 RETURN
  474. 4310 PRINTTAB(TA)"[206][163][163][205]
  475. 4312 [153][163]TA)"FN  CLOSE
  476. 4313 PRINTTAB(TA)"[165] [160]
  477. 4314 [153][163]TA)"(null)TAB(TAB((null)
  478. 4315 PRINTTAB(TA)"[165][160] [167][160]
  479. 4316 [153][163]TA)"(null)TOTO(null)CLOSE
  480. 4317 RETURN
  481. 4320 PRINTTAB(TA)" [164][164][164][164]
  482. 4322 [153][163]TA)"    (null)
  483. 4323 PRINTTAB(TA)"[160][160] [206]
  484. 4324 [153][163]TA)"CLOSE (null) CLOSE
  485. 4325 PRINTTAB(TA)" [206][160]  [160]
  486. 4326 [153][163]TA)" FN   CLOSE
  487. 4327 RETURN
  488. 4330 PRINTTAB(TA)"[206][163][163][205]
  489. 4332 [153][163]TA)"FN  THEN
  490. 4333 PRINTTAB(TA)"[205]  [206]
  491. 4334 [153][163]TA)"(null)TAB(TAB((null)
  492. 4335 PRINTTAB(TA)"[165][160] [167][160]
  493. 4336 [153][163]TA)"(null)TOTO(null)CLOSE
  494. 4337 RETURN
  495. 4340 PRINTTAB(TA)"[206][163][163][205]
  496. 4341 [153][163]TA)"FNCLOSE THEN
  497. 4343 PRINTTAB(TA)"[205][160] [167]
  498. 4344 [153][163]TA)" TAB(TAB((null)
  499. 4345 PRINTTAB(TA)"[160][160] [167][160]
  500. 4346 [153][163]TA)"(null)TOTO(null)CLOSE
  501. 4350 RETURN
  502. 4360 PRINT"[147]":PRINTTAB(TA)"[169] [146][169]":PRINTTAB(TA)" [146][169][169][146][169][223]"
  503. 4370 PRINTTAB(TA)" [169][146][169][169][146][169]":PRINTTAB(TA)"[223]  [146][169]":RETURN
  504. 4380 PRINTTAB(TA)"     ":PRINTTAB(TA)"[184][184][184]  "
  505. 4390 PRINTTAB(TA)"  [169]  ":PRINTTAB(TA)" [169] [146][169]"
  506. 4400 PRINTTAB(TA)"   ":PRINTTAB(TA)"   ":RETURN
  507. 4410 PRINTTAB(TA)"[169]  [223]":PRINTTAB(TA)" [146][181][182] "
  508. 4420 PRINTTAB(TA)"[223]  [146][169]":PRINTTAB(TA)"[169]  [223]"
  509. 4430 PRINTTAB(TA)" [146][181][182] ":PRINTTAB(TA)"[223]  [146][169]":RETURN
  510. 4440 PRINTTAB(TA)" [169]  [223]":PRINTTAB(TA)"[169][146][169] [223] "
  511. 4450 PRINTTAB(TA)"[223][223][169][146][169] ":PRINTTAB(TA)" [223][169][169][146][169]"
  512. 4460 PRINTTAB(TA)"  [169][146][169]":PRINTTAB(TA)"  [146][169]":RETURN
  513. 4470 REM------------------------------
  514. 4480 REM  SUBROUTINE - DISPLAY OUTLINE
  515. 4490 REM OF FACE AND GOTO HAPPY OR SAD
  516. 4500 REM------------------------------
  517. 4510 FORI=1TO23:PRINT:NEXT
  518. 4520 PRINTTAB(TA+6)"[209][209][209]":PRINTTAB(TA+4)"[209][209]   [209][209]"
  519. 4530 PRINTTAB(TA+3)"[209]       [209]":PRINTTAB(TA+2)"[209]  *   *  [209]"
  520. 4540 PRINTTAB(TA)" [209]  *** ***  [209]":PRINTTAB(TA)"[209][209]   O   O   [209][209]"
  521. 4550 PRINTTAB(TA)"[209]             [209]":PRINTTAB(TA)"[209]      *      [209]"
  522. 4560 PRINTTAB(TA)"[209]             [209]":PRINTTAB(TA)" [209]           [209]"
  523. 4570 PRINTTAB(TA)" [209]           [209]":PRINTTAB(TA)"  [209]         [209]"
  524. 4580 PRINTTAB(TA+3)"[209]       [209]":PRINTTAB(TA+4)"[209]     [209]"
  525. 4590 PRINTTAB(TA+5)"[209][209][209][209][209]":PRINT:PRINT:PRINT:PRINT:PRINT
  526. 4600 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]"
  527. 4610 ON HA GOSUB 4680,4800
  528. 4620 RETURN
  529. 4630 REM-----------------------------
  530. 4640 REM   SUBROUTINE - HAPPY
  531. 4650 REM SMILE ON FACE FOLLOWED BY
  532. 4660 REM "GOOD" WITH STARS
  533. 4670 REM-----------------------------
  534. 4680 PRINTTAB(TA+4)"[158]*     *[157][157][157][157][157][157]*   *[157][157][157][157]***[155]"
  535. 4690 GOSUB700:GOSUB4860
  536. 4700 PRINT"[147]"
  537. 4710 RETURN
  538. 4720 GOSUB3850:GOSUB4930:GOSUB3500
  539. 4730 FORI=1TO50
  540. 4740 POKEINT((33767-32769)*RND(0)+32768),42
  541. 4750 NEXT
  542. 4760 RETURN
  543. 4770 REM-----------------------------
  544. 4780 REM   SUBROUTINE  -  SAD
  545. 4790 REM-----------------------------
  546. 4800 PRINTTAB(TA+6)"[150]***[157][157][157][157]*   *[157][157][157][157][157][157]*     *[155]":GOSUB730
  547. 4810 GOSUB4860:RETURN
  548. 4820 REM------------------------------
  549. 4830 REM   SUBROUTINE
  550. 4840 REM  TIMING FOR DISPLAYS
  551. 4850 REM------------------------------
  552. 4860 T=TI+120
  553. 4870 IFT>TITHEN4870
  554. 4880 RETURN
  555. 4900 REM SUBROUTINE FOR SEPARATION OF LETTERS
  556. 4930 PRINT"[145][145][145][145][145][145][145]":TA=TA+7:RETURN
  557. 4940 REM------------------------------
  558. 5410 REM  SUBROUTINE   "BYE" TO STUDENT
  559. 5430 PRINT"[147]":TA=9
  560. 5440 PRINT"YOU HAVE COMPLETED THIS UNIT!":GOSUB793
  561. 5445 PRINT"     NOW, LET'S LOOK AT YOUR SCORE.":GOSUB793:GOSUB760
  562. 5480 RETURN
  563. 5490 END
  564. 6000 REM DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
  565. 6010 REM PROJECT DIRECTOR: FRANK WINTER
  566. 6020 REM PROGRAM NAME: LETTER RECOGNITION
  567. 6030 REM WRITTEN BY PAUL MCGUIRE 80
  568. 6040 REM REVISED BY SANDRA BLANKENFELDT
  569. 6050 REM UPDATED FOR TPUG BY BILL CUMBERLAND
  570. 6060 REM WHC 90:05:04
  571.